10 AN=10:TA$="^":REM KANN GEAENDERT WERDEN
20 FORD=0TO70:GETT$:IFT$=TA$THENA=A+1:GOTO20
30 NEXT:IFA>ANTHENA=0:PRINT"UNGUELTIG":GOTO10
40 PRINT"FUNKTION"A